home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / mailmen.arc / PRINTIND.PRG < prev    next >
Encoding:
Text File  |  1991-01-10  |  1.0 KB  |  45 lines
  1. * PRINTIND.PRG - PRINTS CATEGORIES FOR PROF1, PROF2, PROF3 FOR MAILING LIST
  2. * PROGRAM (C) COPYRIGHT DECEMBER 3, 1983 PHILIP K. PERLMAN
  3. ERASE
  4. SET TALK OFF
  5. STORE 55 TO N
  6. STORE 0 TO INDEX
  7. STORE 1 TO INDIC
  8. DO WHILE INDIC <= 3
  9. STORE 'PROF'-STR(INDIC,1) TO PROF
  10. USE MAIL INDEX &PROF
  11. GO TOP
  12. STORE &PROF TO KEY
  13. SET PRINT ON
  14. STORE T TO TRUE
  15. DO WHILE TRUE
  16. ?
  17. ?
  18. ? PROF, "CATEGORIES"
  19. ?
  20. DO WHILE .NOT. EOF .AND. INDEX < N
  21. IF &PROF <> ' ' .AND. &PROF <> KEY
  22. ? &PROF
  23. STORE INDEX + 1 TO INDEX
  24. STORE &PROF TO KEY
  25. ENDIF
  26. SKIP
  27. ENDDO
  28. IF INDEX >= N
  29.      EJECT
  30.      STORE 0 TO INDEX
  31. ENDIF
  32. IF EOF
  33.      STORE F TO TRUE
  34. ENDIF
  35. ENDDO
  36. SET PRINT OFF
  37. STORE INDIC + 1 TO INDIC
  38. ENDDO
  39.  
  40.  
  41.  
  42.  
  43.  l                        รบ                    dAPPRAISORS           BLUEPRINTS, OVERSIZE+CABINETS            COPIES, OVERSIZE 14X DOORS, METAL        ELEVATOR            uINVESTOR            
  44. LENDER, LAWYER      $SALES               
  45. COUNTER TOPS